(cd-absolute): Use abbreviate-file-name on expansion of DIR.

diff --git a/lisp/files.el b/lisp/files.el
index f500fec5d99f16ec86955305a7c9257fe64105cd..9aa7cfef23b2b0bdee034b1559719706b173250a 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -255,7 +255,7 @@ Not actually set up until the first time you you use it.")
 
 (defun cd-absolute (dir)
   "Change current directory to given absolute file name DIR."
-  (setq dir (expand-file-name dir))
+  (setq dir (abbreviate-file-name (expand-file-name dir)))
   (if (not (eq system-type 'vax-vms))
       (setq dir (file-name-as-directory dir)))
   (if (not (file-directory-p dir))